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Y club commodore 


1 
EDITORIAL 


a nuevos 
tiempos, 
Nuevos... 


Precios. Nuestra Revista del CLUB 
COMMODORE ha crecido sustancial- 
mente a partir del número de diciembre. 
Ha doblado su contenido pasando, para 
los suscriptores, de tener ocho páginas 
exactamente a tener dieciséis, con lo 
que los costes de confección se han 
disparado y por ello hemos tenido que 
tomar una decisión harto dolorosa: su- 
bir el precio de suscripción que pasará 
a ser ahora de 1.980 ptas. los once nú- 
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meros anuales, con lo que el precio del 
ejemplar queda en 180 ptas. 
Imaginamos perfectamente la opinión 
del lector sobre esta tema. Solamente 
queremos hacer constar que, como 
usuarios que somos, los que compone- 
mos la Redacción de CLUB COMMO- 
DORE comprendemos perfectamente 
sus quejas. Quede para consuelo de los 
más afortunados el hecho de que para 
los suscriptores actuales esta subida no 


ST 


tendrá efecto hasta que se cumpla el 
aniversario de su suscripción. 

Además, nos comprometemos a no 
dormirnos y a trabajar intensamente en 
la mejora de nuestra Revista y los servi- 
cios a ella asociados. En este sentido 
nuestros suscriptores pertenecientes al 
CLUB COMMODORE están recibiendo 
ya, durante tres meses y gratuitamente, 
el semanario “COMPUTERWORLD”. 

¡Hasta el próximo número! E 


la zona de «strings» (2.* parte) 
y el «garbage collectiom» por y.c. SAMARANCH 


E | mes pasado empezamos a comen- 
tar el comportamiento de la zona de 
cadenas de caracteres (strings), pero 
existen varias curiosidades de las cua- 
les, seguramente, no nos hemos per- 
catado en el uso cotidiano del sistema 
o, en otros casos, hemos dado la culpa 
de anomalías acaecidas, sin sentido 
aparente, al duende de la informática 
(BUG en nuestro caso). 

Como es habitual, ilustraremos la 
explicación con un programa sencillo: 


20 CS = «COMMODORE» 

50 A = PEEK (48) + PEEK (49) * 256 
60 B = PEEK (52) + PEEK (53) * 256 
70 PRINT B-A 


Al efectuar el RUN nos imprime un 
CERO correspondiente a la longitud 
de la zona de «strings» (B—-A = prin- 
cipio — final). Parece extraño ¿no? En 
la edición anterior creamos la misma 
variable y esta zona ocupaba 11 bytes! 
(Ver CLUB COMMODORE núm. 3.) 

Si sustituimos la línea 20 por: 20 
CS = «COMMODORE "+"», solamen- 
te hemos añadido NADA, que no debe- 
ría tener importancia, y ejecutamos el 
RUN, el resultado en este caso es: 11 
bytes, tal y como comentábamos. 

¿Qué ha sucedido? En ambos casos, 
se ha creado una cabecera para la va- 
riable CS en la zona de variables pero 


AVISO PARA NAVEGANTES 


O Aunque a primera vista esta sección está dedicada de manera específica 
a los ordenadores CBM (actualmente se comercializan las series 4000 y 8000), 
el contenido de los artículos es completamente aplicable — con ligeras modifi- 
caciones que se hacen constar en los propios artículos — a equipos como el 
2001, el 3000 e incluso el VIC-20, dado que el funcionamiento de los diferentes 
intérpretes de BASIC es sustancialmente el mismo, Cambiando, como máximo, 
el valor de los POKEs y PEEKs, se pueden conseguir resultados. En todo caso, 
los suscriptores de CLUB COMMODORE disponen de los correspondientes mapas 
de memoria que se están publicando en forma de fichas en la contraportada 
interior de la Revista a partir del número 1. 


dicha cabecera «apuntaba» (indicaba 
dónde se hallaba almacenada la cade- 
na correspondiente a CS) a distintos 
sitios. 

En el primer caso, apuntaba hacia 
la zona de programas, exactamente al 
punto donde se encontraba el «string» 
(en la línea 20 después de CS = »). 
Esto se hace para descargar de cade- 
nas la zona de «strings» que es donde 
se sitúa en el segundo caso por inter- 
pretar que se trata de una composi- 
ción de cadenas (signo +). 

Si añadimos al programa anterior 
las siguientes líneas: 


10 FORI = 170100 
30 NEXT 


En el primer caso, nos continúa dan- 
do longitud CERO porque siempre de- 
finimos la misma variable que se en- 
cuentra dentro del programa y que no 
se trata de una fórmula. En cambio, en 
el segundo caso la longitud es 1100, 
como si hubiéramos creado 100 cade- 
nas distintas de 11 bytes cada una. 

Efectivamente cuando se redefine 
un «string» situado en la zona de 
«strings» no sustituye al anterior sino 
que se crea uno nuevo y se destruyen 
los links (punteros) del anterior a la 
variable, situada en la zona de varia- 
bles. 

(pasa a la pág. siguiente) 
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(viene de la pág. anterior) 


EL «GARBAGE COLLECTION» 


mina garbage (basura). 


— PEEK (46) — PEEK (47) * 256 


la edición anterior.) Si escribimos: 
PRINT FRE (0) 


valor obtenido anteriormente. 


valor del FRE (0). 


A LOS USUARIOS DE “VIC” 
DE BARCELONA 


O Se necesitan colaboradores para 
redacción y traducción de programas 
para el «VIC». Es imprescindible 
ser usuario y residir en Barcelona. 
Los interesados pueden llamar a: 
P. Masats, «Microelectrónica y Con- 
trol, S. A.» - Taquígrafo Serra n.* 7 - 
5.* planta - Teléfono 250 51 03, en 
horas de oficina. - Barcelona. 


Como hemos visto, tenemos 100 ca- 
denas en la zona de «strings» y una 
sola variable válida. Por lo tanto, las 
99 cadenas «malas» es lo que se deno- 


Si activamos el proceso de «garba- 
ge collection» (literalmente recogida 
de basura) se limpia la zona de 
«strings» y se recupera memoria libre. 

Si aplicamos la siguiente fórmula: 


PRINT PEEK (48) + PEEK (49) * 256 


obtenemos el número de bytes li- 
bres en este momento. (Ver mapa en 


obtenemos el número de bytes libres 
después de ejecutarse el «garbage co- 
llection» (provocado por la instrucción 
FRE (0)), siendo, por tanto, mayor (o 
igual, en el peor de los casos) que el 


Si repetimos ahora la primera fór- 
mula observaremos que la memoria 
libre se ha incrementado y es igual al 


En nuestro caso concreto estos va- 
lores son: 30519 y 31608, respectiva- 

- mente. La diferencia es, precisamente, 
99 variables «malas» Xx 11 bytes ca- 
da una = 1089. 7 


un juego 
de inteligencia 


por ERNESTO MARTÍNEZ 
DE CARVAJAL HEDRICH 


Conocimos a Ernesto en medio de los 
avatares de una feria (SONIMAG) y en 
medio de todo el barullo nos enseñó al- 
gunos de sus programas (que también 
vende) para el VIC. Nos gustaron y ahora 
publicamos una colaboración suya que 
esperamos sea la primera de una larga 
serie... Como ya se presenta él solo no 
vamos a dar más la lata. 


Abpreciados convicciosos: 

Ante todo, felicidades a los culpa- 
bles de nuestra Revista que, sin áni- 
mos de grandeza, nos informa, nos 
ayuda, y, sobre todo, nos une. 

En esta ocasión quisiera aportar mi 
grano de arena con dos programas, un 
juego y una rutina que espero os di- 
vierta y sirva de ayuda. 

Antes de proceder a explicaros los 
programas voy a presentaros a mi sis- 


tema microinformático que, como po- 
déis ver en la foto, va «sobre ruedas». 
Para evitar el enredo de cables y el 
engorro que supone tener todos los 
componentes desperdigados sobre 
una mesa, se me ocurrió esta sencilla 
y práctica solución. Básicamente se 
trata de una consola de madera (aún 
no existía la que en la actualidad co- 
mercializa Commodore) y una mesa 
de máquina de escribir. Por unas nue- 
ve mil pesetas adquirí todo el material 
necesario, la mesa, el aglomerado de 
madera laminado en «formica» blanca, 


un pequeño ventilador, cable eléctri- 


co, clavos, etc... Y en una lluviosa tar- 
de de domingo dejé lista la obra. 

La consola está formada por una ba- 
se sobre la que se apoya el VIC y un 
receptáculo en el cual encaja la parte 
posterior de aquél, de manera que los 
cables quedan ocultos en el interior. 
La parte superior, sobre la que descan- 
sa el monitor de TV y el cassette, se 
puede levantar para acceder a su inte- 
rior, en el cual se encuentra, además 
de la maraña de cables, el transforma- 
dor, el modulador y el ventilador que 
refrigera todo el conjunto, aspirando 
aire a través de unos orificios practi- 
cados en la base. De la parte posterior 
sale un ¡júnico!. y largo cable para la 
toma de corriente y un enchufe con 
tres salidas para conectar los apara- 
tos que no se alimentan directamente 
del VIC. Un pequeño interruptor situa- 
do en la parte derecha, conecta todos 


los elementos. La consola no está fija- y 


da a la mesa para permitir su traslado 
independientemente de ésta. Cuatro 
tacos de goma, fijados a la base, impi- 
den que pueda deslizarse, a la vez que 
evita rayar la superficie sobre la que 
pongamos la consola. En la mesa, tres 
tapas laterales y otros tantos estantes 
regulables completan el conjunto. 
Práctico, ¿no? 

Y después de los trabajos manuales, 
pasemos a la informática que es lo 
nuestro. El primer programa es un po- 
pular juego conocido con el nombre de 
«Misioneros y Caníbales» aunque ha- 
ya otras versiones similares con dife- 
rentes nombres. El objetivo del juego 
es trasladar un grupo de tres misione- 
ros y otros tantos caníbales que se en- 
cuentran en la orilla de un río, a la 
opuesta, utilizando para ello una barca 
en la que sólo caben dos personas. Só- 
lo una regla: si en algún momento hay 
inferioridad de misioneros en alguna 
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PROGRAMA NUM. 1 


20 G1=2327€8 

30 62=71€8 

409 1P=7699 e 

50 PRINT "73": GOSUB2000 

€0 FOR I=0 TO 512 

7O KR=RPEEKCG1I+I> 

80 POKE <G2+1>,K 

930 NEXT _I 

10009 DATA 0,€9,36.,36., 24.36, 1027, 102,102 
1010 DATA 1,€0,60,60.24,€60, 12€, 126, 12€ 
1920 DATA 2.12€.126.€60.60.609.60,.126.0 
1030 DATA 3,255, 127,63,31715. 159, 102,0 
1040 DATA 4,255. 2557, 2557255. 255,255, 102.» 


a 

A DATA 5,255,254, 252,243, 240,.2349,102, 
10609 DATA €, 189, 1€5., 165.153, 231,36.,36,36€ 
1070 DATA 7,255. 126.€0., 126,255,255, 126.6 
a 

1053506 DATA 5,.09,0,.0,0,0,0,0,255 

105909 DATA 29.32.32, 32.32.32.32.32.32 

15190 FOR Il=1i TO 10 

1515 READ C 

1520 FOR J=BD TO Y 

1530 READ K 

1590 POKE G2+<OMXS>+J. KE 

15509 NEXT J 

1560 HEXT I 

1€00 POKE 52,26:POKE 56,28 


PROGRAMA 


110 mc<1>=3:Mc2>=D:Mc<3>=0 

120 Nc<1>=3:HcC2> H<3>=0 

130 I*£c5>="CDDE =28 

140 BSs=-" 

150 Mms="0C040LEELE 

160 N*-"ARARAR 

170 B*="BBBBBB" 

200 POKE 36869.,255 

210 PRINT"3I" 

220 GOSUB1600:c50TO3010 

1600 11$*=B9$+"1"+B>39S+" a? Do 

1610 12%$=B9S$+"I]"+BE93+" "+" I1"+B9S3 

1€20 I1$=LEFT*CMS,MC1>>+LEFTECNS,)NC1AR 
IGHT*CI1S$,22-CMC1>+HC1>2>5> 

1630 I1isS=LEFTSCI1*, B>+LEFTS<MS,)M2>>+LEF 


TECH, NO2>>+RIOHTSCI1S,) 22-CB+4MCO24+4NC25>> 
1640 I2%=LEFTSC1I2%$.B-1>+"CDDE"+RIGHTS$CIZ 
$, 22-<B+23>> 

1650 1I15=LEFTSc<1I1+$, 16>+LEFTECOMS,) MES ILE 
FTECONS,+¿ NOS IARIGHTECI1S) 22 16+MC3I+HIC3> 
>> 

1660 I2%5=LEFTS+*C<BS,MC1>+HC1>>+RIGHTESCIZS, 
22-(MC1>+HC15>> 

1670 12$=LEFT*<12%, 16>+LEFTS<BS,MC3>+NCOS 
>I+ARIGHTSCIZS,) 22-C16+MOGIAHHE3I>> 

2005 PRINTS" 

2010 PRINT" ha 

2015 PRINT" so 

2020 PRINT" HHHHHHAHHAHHAHAHHHHAHAHHHAHAHA Y 

2030 FORI=1TO10 
2040 PRINTBSS;"I 1";B9*%;5 : NEXTI 
2060 PRINTI1S; 

2070 PRINTIZS; 

20809 FORI=1TOG:PRINTESS; "1 
¿5 NEXTI 

2200 RETURN 

3010 SuU=09 

3020 GOSUBEODOOD : GOSUB1S0OO 
3040 FORB=8T012:G60SUB1C600 : NEXTB: B=12 
3095 M:3>=McC3 > AMEZO ¿MERO NEO RNEDIINEZ 
>: Hi¿27=0 : GOSUB1E00 : GOSUBSS1O 

30€0 Sl=1 : GOSUBEDOD : GOSIUB1C500O 

3070 FORE=12TOSSTEP-1 : GOSUB1C€00 : NEXTD : BD” 
s 


1":B9% 


16106 CLR 

1620 PRINT"PULSE 3ASHIFTES ARUN-STOPE" 
16309 STOP 

2000 POKE 3685785,15 

2005 PRINT "y ERMESTO MARTIMEZ DE” 
2010 PRINT" CARYAJAL HEDRICH" 
2015 POKE 368794,210 

2016 FORI=1T01000: NEXT 

2020 PRINT "mm PRESENTA" 

2022 POKE 3€875.18%0 

2023 FORI=1TO019006 : HEXT 

2025 PRINT" xa e o o a ode de a e ade a e ad ad a 
2027 PRINT" su xq. 

2130 PRINT "RBD MISIONEROS xk" 

2140 PRINT" su“ - mu. 

2150 PREDR 3CANIBALESE - 
2155 E 42 

2160 PRINT" o a e jo e o e o o ad 

2170 POKE 36876.128 

21809 FORI=1TO02000 : HEXT 

21909 FOR I>=10TO9STEP-—1 : POKE36878., 1 : FORJ= 
1T0500 : NEXT : HEXT 

SEN POKE 36874.,0: POKE36875.0: POKE36876. 
2300 RETURN 

4000 FOR 1=09T064 

4010 PRINTI;"=";5;CHRSC1I+69> 

40209 NEXTI 


READY. 


NÚM. 2 


3075 MC1>=MC134+4MC2>:MC2=0 : NC 108 NC1ANICZ 
> :Nc22>=0 : GOSUB1EOO : GOSUBIS1O 

30809 GOSUB 3510 

3098 GOTOSO1O 

351080 IFM<1><HC 12 ANDA 1 >> THENSU=O : GOTOSO 


3520 IFM<3><H<3>ANDMC3>>0THENSU=1 : GOTOSO 


3530 1F Mc1>=B0ANDAC 1>=0THEN4O1O 

3540 RETURN 

4010 Z$="BRAVYO, LO CONSEGUISTE":GOUTOSOSO 
5010 K=1:J=6: IFSU=1 THENK=16: J=22 

56020 FORI=KTOJ 

5030 IFMIDS$SCI1S, 1.1><>"Q" THENSOCO 

5040 11$=LEFT*CI1S. 1-1>+"F"+RIGHTSCI1S,2 
2-cI>> 

5050 I2$=LEFTSCIZ2%., 1-1>+"G"+RIGHTECIZS.Z2 
2-<1>> 

5060 NEXT I : GCOSUB2005 

50s0 zs-"” JA, JA PERDISTE" 

5090 FORI=1T0494060 : HET 1 

5100 POKE 36569,240 

51109 PRINHT" ana; 23 

5500 GETAS: 1FAS="" THENSSOGO 

5510 RUN 

60008 PRINT"=3 au 

6020 M=0:C=0 

$930 OM SUW+1 GOTOCOAO. OSO 

6048 IMPUT "-—-> ,A";M.C:GOTO 610090 


€0568 INPUT "<-— M,A";3mM,C 

6100 IFSHW=1 THENIFMIM<S>DORCS)ALCS > THENCEZOO 
6110 IF M<SG0ORM>2OD0RC<UDORC>2THEHNEZOO 

6140 I1F M+C>20RM+C=5THENCEZ200 

6150  IFSH=9THENMC1>=M< 15M: Hc<1>=NMcC1>C 
61€9 IFSU=1 THENM<3>=Mo3>—M: HO =MHC3SI—O 
6170 N2>=H<2>+C 

6159 mcz2z>=mc2>+mM 

6190 RETURN 

6200 POKE 3685735. 15:POKE 36875.200 

6210 FORI=1TO0200: METI 

6220 POKE 36873,.05:POKE 236275.,0: GOTOCOGO 


PROGRAMA NÚM. 3 


REM DE LA LINEAR 

REM-TI: ALA ISISS 

REM ES EL PROGRAMA 
REM A. RENHUMERAR 

REM as o e ope ade a ae o a aa je a ol apa a 
REM ATENCION! 

REM SI SE TRABAJA CON 
REM EL CARTUCHO DE 3kK 
REM EL WALOR DE RE EN 
REM LA LIMEA 10010 
REM DEBE SER 1024; 
REM SI SE TRABAJA 
REM CON EL DE 8 O 1€K 


a ES 


Nro 


14 REM RE DEBE SER IGUAL 

15 REM A 96085 

3999 END 

10060 REM RENHUMEER 

100150 RE6=409096:R7=10 

OS IFPEEKCRE+25=E6ANDPEEK<FE+45=239THEN 
10030 RS=INT<RIIZ56) :RSI=RT—256MXRS : POKERS 
+3), RO: POKERE+4, FS 

100940 IFPEEK<RE+5><>BDTHENRE=RE+1 :GOTO1GO 


190059 R7=R7+10: RS6=RE+S5S:GOTOL1OOZO 


de las dos orillas, los caníbales los me- 
ten en la olla y... se los comen. 

El programa está partido en dos. El 
primero traslada la tabla de genera- 
ción de caracteres, creando aquellos 
especiales que necesita el segundo. 


No detallo más este capítulo ya que 
no es evidente y escapa a las preten- 
siones de este artículo. El segundo 
programa es el que realiza el juego 
propiamente dicho. En la pantalla apa- 
recen dos líneas verticales que repre- 


sentan los márgenes de río, el grupo 
de misioneros y caníbales que, en un 
principio estaban a la izquierda, así 
como la barca. En la parte «superior 
aparece una representación formada 
por una flecha que indica el sentido en 


(pasa a la pág. siguiente) 
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un juego 
de inteligencia 


(viene de la pág. anterior) 


que se va a realizar el siguiente tras- 
lado. El número de personajes a tras- 
ladar de cada tipo se ha de dar por dos 
números separados por una coma. En 
caso de que no se pueda trasladar al- 
gún tipo, se ha de poner un cero. 

El programa puede ser mejorado en 
los siguientes puntos: 


— Forma de pedir los personajes a 
trasladar. 

— Colores. 

— Número de personajes variable 
(aunque siempre ha de ser igual el nú- 
mero de misioneros al de caníbales). 


Si sólo se dispone de tres K, no se 
puede añadir prácticamente ni un byte 
más por lo que habrá que tener cuida- 
do al realizar la transcripción, y, si 
queréis mejorar el programa, tendréis 
que ampliar la memoria teniendo en 
cuenta que habrá que modificar los 
peek y pokes que gestionan la nueva 
tabla de caracteres. 

Y, por último, la rutina de utilidad 
que, con seguridad, os ahorrará mucho 
tiempo en el desarrollo de programas. 
Se trata de un renumerador de líneas 
o resecuenciador. Como podéis ver se 
trata de un programa muy pequeño, 
que ocupa sólo 198 bytes. Para utilizar- 
lo basta entrarlo a partir de la línea 
10000, teniendo en memoria el progra- 
ma a renumerar (evidentemente, éste 
no puede tener ninguna instrucción 
más allá de esa línea), y hacer «run 
10000». Empezando en la instrucción 
10, se va incrementando las siguientes 
en diez unidades, hasta encontrar el 
«end» del programa. Los números de 
sentencia que aparecen en las instruc- 
ciones «GOTO» y «GOSUB», no se mo- 
difican, debiéndose hacer después ma- 
nualmente. Para ello, antes de realizar 
la renumeración, añadir al final de di- 
chas instrucciones y de las que a éstas 
hacen referencia, un REM que las re- 
lacione. Tras la renumeración, se mo- 
dificarán dichas instrucciones manual- 
mente, eliminando los REMs. 

La base teórica de esta rutina está 
en la forma en que son almacenadas 
en RAM las instrucciones BASIC, que 
es la siguiente: los dos primeros by- 
tes encadenan cada línea con su si- 
guiente, los dos siguientes son el nú- 
mero de sentencia, a continuación es- 
tá la instrucción BASIC y, por último, 
un NULL. En la última línea hay dos 
NULLs más que indican el final del 
programa. E 


É ste programa nos ayuda a diseñar 
circuitos de conmutación con transis- 
tores NPN de silicio. 


Los datos que nos pide el programa 
son: 


— HFE MIN: valor mínimo de hFE 
del transistor. 

—|CBO (mA): intensidad de corte 
colector-base. 

— UG + (V): valor máximo de ten- 
sión positiva de entrada. 


Vec 
Re 


Re 
TR(NPN) 


Ug 


— UG — (V): valor máximo de ten- 
sión negativa de entrada. 

— Ucc (V): tensión de alimentación 
del circuito. 


Todos los resultados vienen dados 
en: 


— miliamperios si se trata de inten- 
sidades. 

— en kilo ohmios si se trata de re- 
sistencias. 


FUNCIONAMIENTO 


Las líneas 10-20 hacen la presenta- 
ción del programa. En las líneas 30-70 
se efectúa la entrada de datos de las 
variables del programa con sus corres- 
pondientes unidades. Las líneas 80-120 
son para el cálculo del estado de satu- 
ración y la representación en la pan- 
talla de estos datos. 

Las líneas 210-240 realizan la nor- 
malización de las resistencias dadas 
por el cálculo. 


En las líneas 250-320 se realiza el 
proceso inverso del proyecto para di- 
ferenciar el resultado teórico del nor- 
malizado. En las líneas 330-370 se pre- 
sentan los resultados. 

De 380 a 430 se encuentra una ruti- 
na para seguir el proyecto o corregir 
datos en el caso de que éstos no se 
aproximen a lo calculado en el proceso 
teórico. 

De 440 a 470 se efectúa la presenta- 
ción en pantalla de los resultados fina- 
les del proyecto. 


SATURACION 


Wip 


ll 
Ds 


18=0 


) 


VZZZZAZZ2RZZZZZ 
Ucc 


Uce 
CORTE 


En 480-540 se encuentra una rutina 
de fin de programa y entre 550 y 570 
se realiza el paso de una pantalla a 
otra. 


Las fórmulas utilizadas en el cálcu- 
lo son: 

IB =Icbo 

RB = — UG/IB 

UCE = .1 

1B = (UG-.7)/RB 

1B>IC/hfemin 

IC = (UCC-UCE)/RC 


uu 
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diseño de circuitos con transistores 
en régimen de conmutación 


» 


PROGRAMA 


0 rem conmutacion 


19 rem r.Pardo j.J. auilera 
29 Print"mw"tab<3>"IEConmutaciorm 320 i2=ctu3-.1>"rz 


30 Print:inPut"hFEmin" hm 
49 Print:inPput"IlcbocmA>";i1 
50 Print:input"Us+c<v>";5ul 
60 Print:inPput"Us-<wv>";u2 
790 Print:ineut"Ucaocv>”"iua 
80 Print"mEztado de corte” 
30 rb=u2/11 


por J. JOSÉ AGUILERA y R. PARDO 


280 Print"lb<ccalculada="53inm;'"m 


100 Print:Print"Rb=":rb;"kohms" 34009 Print:Print"Pulz=z 1 o 2” 


110 sosub 5509 
120 Print"a" 


SS Print"Estado de saturacion” 4309 sotos910 


50 ic=chmkxib>r1.S5 


1 
n 0 ib=cui-.7?7>-"rb 
169 rec=tu3-.1l>/ic 


170 Print:Print"lb=";ib;"mA" 
130 Print:Print"lc=":ic;"mA" 


= 
199 Print:rrint"Re=";:rc;"Kobhms" 43909 Print: :Print"2-Huevo Proyect 
- 


200 2osubss0o 
219 Print"*aNormalizacion"” 


220 Print"Rb=";5rb;i"Kohms":pr int" Rrao=" 


2950 Print"wvariacion estado saturacion" 

300 il=cul-.T>"rw 

3109 ¡3=<hm*im>-1.3 

330 Print"Iibcdada>=":;ibi'"mA" 

399 Print"Iib<ccalculada> ¿115 "mA 

359 Print"Iiccdada>r=";:ici"mA" 

368 Print"Iicicalculadar=":i2: "mA" 

370 sosubs5o 

350 Print"»m31-Sesuir el Prosecto" 

390 Print:Print"2-Corresir datos” 

410 setat:ifat="1"then940 

420 i¡fas="2"then210 

440 Print"=XRrezultados finales” 

459 Print:Print"Ro ¿irzi "Koh 7 

4698 Print:Print"Rb=";3rw;"Kobm=" 

470 sozub550 

459 Print"=31-RePetir resultados” 
En" 

500 Print:Print"3-Fin de Proyecto" 


519 Print:Print"Pulse 1,2 o 3” 
Pez 520 setbs:ifbst=""thens20 


"Korms " 530 m=wal<b$>:ornmaotoSD., 20,540 
230 Print:Print"Normalice valores" 5409 end 

240 Print:iinput"Rb"irvcinrut"Re"irziPrinm 5509 Print:Print"Pulse una tecla” 
trar 560 setos: ifos=""thensc6n 

250 Print"Variacion estado de corte" 570 return 

260 in=uzsrw 

270 Print"lbidadar="5i1;"mA" ready. 


RADIOAFICIÓN 


cálculo de distancias 
entre OQTH locator 


E programa que presentamos hoy 
es una adaptación para el VIC-20 de 
otro que nos facilitó EA3BRA para cal- 
cular la distancia en kilómetros entre 
el OTH Locator del usuario y los de los 
distintos corresponsales. Ha sido uti- 
lizado en concursos de VHF para el 
cómputo de los «logs», ya que dispo- 
ne, además, de un totalizador de pun- 
tos (1 punto = 1 Km.). 

En la variable LS de la línea 60 debe 
figurar nuestro QTH Locator que se to- 
mará como referencia (p. e.: el BB31J 
de EA3BRA corresponde a Sabadell). A 
partir de este momento, nos irá pidien- 
do los distintos QTH's, calculando y 
visualizando las distancias y acumu- 
lando el total de puntos. Cuando no 
tengamos más para entrar escribimos 
«<=» (flecha horizontal) y RETURN 
mostrándose por pantalla el total con- 
seguido. 


El programa está preparado para tra- 


1 REM eto CALCULO DE DISTANCIAS mue 

2 REM **%k ENTRE DOS GTH LOCATOR mee 

3 REM xao POR EASBRA dee 

109 DATAS. 1.1,1,1,3,1.5,3,5+/5,/5:.5,/3,5+1.3 
2.1.3.3 

20 FORI=65T09: READHCI1I>,KC<1> NEXT: Te 

390 DIiMv<25>:DATAS, 1,2,3+.4.5.6.7.8,9,10.1 
1,12 

49 DATA-13,.-12,-11.-10,-9,-8,-7,-6,-5S,-4 
¿Ds — de 

50 FORI=0TO2S: READY< 152: NEXT :R=047180 

60 LI="BB31J3":REM *** QTH LOCATOR DE ORI 
GEN mmm 

$5 GOSUBI100 : GOSUB1ICO : XAD=>=XMR : VD=YMR 

YO INPUTLE: IFLE="<"THENZ30 

75 GOSUB1OD: GOSUBI1CEO : <=XMKR : Y=4HR 

50 L=SIN<Y>RSINC YO ACOSO YI MIOS E YD IMC OS € 
=0)> 

50 L=ATHESGRC1LRLIIL>/RM111323: T=T+L:P 
RINTL"KMmS. ":GOTOT7O 


100 REM xk CALCULO DE LAS LONGITUDES ek 
+ 

110 A=wWcASCIMIDECL+S.1,1>>5-E5> 

120 D=WAL<MIDFCLE,4,1>> 

130 IFD=59THEMD=10 

1399 H=HcCASCIMIDIECLEA,L SOS, 1>>-65> 

150 X=A=2HA+D.-5-H-30: RETURN 

150 REM ske CALCULO DE LAS LATITUDES mies 
170 B=WCcASCIMIDICLS, 2. 1>>-65> 

139 2=WAL<MIDICLIF,3.1>> 

130 IFD=10THEMC=C=i1 

20D K=kKcASCCMIDECLE,5S, 1>>-65> 

210 Y=3931+B-2C-2-Kr 33 

22 RETURAH 

230 PRINT:PRIMT"TOTAL:"T:END 

READY. 


] 


bajar entre los márgenes —NNO0O1H y cuando se le da un QTH Locator XXnnl composición de «logs» a los que ten- 
+MM80D, que se pueden alterar mo- (que no existe) lo toma como XXnnA.  gáis un VIC-20 como componente de la 
dificando las líneas 30 y 40. Asimismo Esperamos facilitaros la tarea de estación. a 
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SUPEREXPANDER 


dos programas 
de demostración 


E stos dos programas cuyos listados 
se dan en la figura están pensados pa- 
ra demostrar las posibilidades del car- 
tucho SUPEREXPANDER. 


Dado que hemos detectado algunas 
dificultades por parte de los usuarios 
a la hora de empezar a trabajar con 
los gráficos, creemos oportuno acon- 
sejar que se introduzca en memoria el 
primero de ellos para ver sobre la 
marcha cómo trabaja cada instrucción. 
Si en un momento dado cambiamos 
algún valor que afecte a los comandos 


de gráficos podremos ver su efecto 
mucho mejor que escribiendo un largo 
(y aburrido) artículo sobre el tema. En 
lo que respecta a este programa hay 
que hacer una advertencia: debido a 
una misteriosa mala pasada de BUG, 
en la impresora no aparece el símbolo 
perteneciente a «F inversa» que sale 
en el listado de pantalla cuando en el 
SUPEREXPANDER se selecciona el 
modo «sonido». Esto se obtiene en las 
instrucciones PRINT al pulsar las te- 
clas CTRL y «flecha a la izquierda». 
Esto debe añadirse en las líneas 915, 


por PERE MASATS 


920, 925, 930, 935, 940, 945, 950, 1010, 
1055 y 2000. 


El segundo de los programas realiza 
sobre la pantalla una serie intermina- 
ble de dibujos que van cambiando sin 
repetirse nunca, de manera que uno 
puede quedarse embobado delante del 
televisor horas y horas (como si en 
TVE alguien se hubiera equivocado y 
se estuviera emitiendo un programa 
interesante). A destacar, el sistema de 
simetrías que da a los dibujos una es- 
tética muy sugestiva. E 


PRIMER PROGRAMA 


REM _ DEMOSTRACION DEL SUPER EXPANDER 
POKE3E6S79.,59 
GOSUB1200 
PRINT"C 
FORG=1T0100: HET 
REM SELECCIOMAR GRAFICOS 
GRAPHICZ 
REM SELEC. COLORES 
COLOR3.3.,0. 10: G0OSUB1500 : GOSUBZ10O 
REM DIBUJA CUADRADO 
CHAR18S.+7., "CUADRADO" : GOSUBZ500 
DRAWZ. 4900, 45071060909. 3509 : GOSUBZ2009 
DRAN2T106009., 650 : GCOSUB2000 
DRAMLWI2T0400. 6509 : GOSUB2000 
DRAMLWLZ2TO0400., 450: GOSUBZ20060 : SONCLR : GOSU 


GRAFICOS": GOSUB13OS 


REM ESCRIBIR TEXTO 

REM CIRCULO 

CHAR18.7."CIRCULO": GCOSUB2500 

CIRCLE2,.512,.512,70., 1005: GOSUBZ100:SCN 
: GOSUBI1500O 

REM DIBUJA TRIAMGULO 

CHAR189),7, "TRIANGULO" : GOSUBZ5900 

DRAN2.5509.450T02509.€50 : GOSIUBZ2000 

DRAN2T0750, 650 : GOSUB2000 

DRAWZ2TOS50. 450 : GOSUBZ200900 : SONCLR : GOSU 


259 REM DIBUJA ELIPSE 

260 CHAR18,8, "ELIPSE": GOSUB2500 

270 CIRCLE2,512.5127.2005.100: G0SUB21006 : SC 
NCLR : GOSUB150D 

280 REM DIBUJA UM ARCO 

290 CHAR1S,539, "ARCO": GOSUB2500 

300 CIRCLE2.512.512.70.100.25.75: GOSUBZ1 
909 : SENCLR : GOSUBI1SOGS 

319 REM DIBUJA PUNTOS 

320 CHAR1S5,5., "PUNTOS" : GOSUBZ5090090 

330 POINTZ. 406.450.400, 650.600.659, 5009, 4 
50 : GOSUB2100 : SCOMCLE : GOSUB1SOO 

340 CHAR18,.3. "CIRCULO PINTADO" : GOSUBZ509090 
350 CIRCLE2.512.512.70, 10060: GOSIUB2100: REG 
IONT7 

3€0 REM PINTAR FORMAS 

370 PAINTZ,512,512: GOSIUB2100: REGIONO: SCH 
CLR : GOSUB1500 

320 REGIONO: CHAR1S,3. "CUADRADO PINTADO": 
GOSUBZ500 

398 DRALZ. 400. 455071060590, 4509 : GOSUB21600 

4090 DRAN2T0€600,€50: GOSUBEZ100 

410 DRAN2T0400.,€650: GOSUB2100 

420 DEAN2T09065. 450 - GOSIUBEZ10050 


430 REGIONZ:PARINTZ.512,512: GOSUB2100 :SCH 
CLR : GOSUBI1SOO 
3440 REGIONO -: CHAR18S,3. "ELIPSE PINTADA":60 
SUB500 
450 CIRCLE2.512.5127.200. 100: GOSUBZ100 
460 REGIONS: PHINTZ,512,512* GOSUBZ100: 3CN 
CLR : GOSUB1SOO 
470 REGIONO: CHAR15,3. "TRIANGULO PIMTADO" 
: GOSUBSOO 
450 DRANZ,550, 45010350. 650 : GOSUEZ100 
3999 DRANWZTO?SO. 650: GOSUB2100 
500 DRAN2T0550., 450: GOSUBZ10O 
510 REGIONS: PRINTZ.512.512: GOSUB2100: REG 
100 : GOSUBI1S50OOD 
530 GRAPHICO - GOSUBI00 
540 PRINMT" Idem 
GRAPHIC2:GOSUBSOGO 
5609 SOLIND225.225. 225,0, 9: FORG=1T1T02000 : NE 
<T * SOUNDO,0,+,0,0, 0: GOSUESOOGO 
R=9400 
REM DIBUJAR PENTAGRAMA 
DRAN2,1.RTOSS9%.,R:GOSUBZIOO 
R=R+100: IFR>SODOTHEMESO 
GOTOS>965 
REM DIBUJAR CLAVE 
CIRCLEZ. 200. 500, 7,13 
DRALMNZ2. 200, 5080T0200.325 
CIRCLEZ2., 200, 4900.52.75.75,.25 
CIRCLEZ),2005., 6563, 130, 196.25.75 


MUSICA": GOSUBIS300 : 


CIRCLEZ.200,700, 100,147.75, 25 
CIRCLEZ¿ 205,625, 69,80,.5. 715 
CIRCLEZ2.250.€60.7,139 

GOSUB250500 

REM DIBUJAR MOTAS 

R=300:F1=>5900: A=0 

REGIONMO 

CIRCLEZ.:FK.Kl,23. 40 

DRANZ, R+23,R1TOR+23,.R1-200 

A=A+1 + ONAGOSUBS1S, 920,925, 930, 935,299 


R=R+50:R1=R1-S50 
IFR>1600THENGOSUB 1006 
GOTO 
FORZ1=1T0500600 : HEXT 
REM TOCAR HOTAS 
PRIMT"VSTES202C"” 
PRINT""YSTESZOZD" 
PRIMT"vYSTESZ2OZE” 
PRINMT"wWSTeESszozF *” 
PRINT"YSTESZOZ26G" 
PRINT""WYSTESZOZA" RETURN 
PRINT"Y>TESZ2O2B” : RETURN 
PRIMT"YSTES2O3T SE" :RETURH 


¿RETURAH 
¿RETURN 
¿RETURH 
¿RETURN 
¿RETURH 


(pasa a la pág. siguiente) 


e 
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PRIMER PROGRAMA 
(continuación) 


BN FORCG=1 TOSOO: HE><T 
BS REM YER HOTAS 
109 RAS="WT494S202" 
15 REGIONES 

BZD —CHAR9., 10. "DO ":PRINTAAS"CR": 
1035 CHAR94,10., 
1030 CHAR4. 10. 
1035 CHAR4,150, 
10690 CHAR4.,10. 
10945 CHAR34,10.+ 
19506 CHAR4,10. 
10. 


CHARZ.Z. “PULSE 
106790 CHAR3.2. "PARA REPETIR" 
19075 CHARS:Z2: “HN FHEA TERMINAR" 


1030 IFS$="S"THEN1100 

1095 GERFHICO - END 

1100 GRAPHICO: FORG=1T0100* NEXT :COTO1AO 
112753 REM CAMBIAR FANTALLA 

1200 POKE3ES79.152- RETURN 

12295 REM RODAR FANTALLA 


J:FORG=1T010- HEXTO. J : HETURMA 
1993 FORGO=1 1020050: HE=T 


ETURAN 

21060 FORGO=1 102060 HE>:1- RE TuURn 
2500 FORMN=1T01000 : HET :RETURA 
30080 CHARZ+7.+ "MUSICA" - RETURN 


READ". 


SEGUNDO PROGRAMA 


LEATORI1OS 

110 DIMX<4,.2,8>+"<4,2,8> 

120 FORI=1T094000: HEXT 

130 GOSUBIGO : E=RR 

140 GOSUB400: Z2=RR: IFZ=BTHEMN1490 
150 R=INTCRHDC17>A1404S 

160 P=INTC<RNDE 12 MESAS 

170 FORI=1T02: FORHA=1TOP 

1890 »C1.1.MA>=IMNT<RNHDC1>AC600>+10 
195 YC<1,1.HA>=INTCRNDE1>ACOO>+ 10 
2.1.HA>=1020-4(1,1.MNA> 


14 c3) 1. HMA>=1020-W<1.1.HNA> 
22M 2:94, 1. HA>=1020-C<1.1,HA> 
230 Y29,1,NA>=1020-YC1,1,HA> 
290 NEXT: HEX<T 

250 MHMA=HA-1 


270 FORD=1TO4 

226 FORJ=1TOHA 

290 HHXCI>SACD,) 1) JIACESPMEARCDOA 20 JA 
PRIOR PCD ds JTAAESPRC OLD 2 > 


1085 GETST: IFSi<>"S"ANDST<>"H" THEN1OSS 


13040 1230055: FORIJ=150TOS3S5STEP-1 :FOKEX1. 


1599 CHAR2+6, "GRAFICOS": GOSUB2500: RETURN 
EODO PFRARINT"YSTESSOSC" >: FORS=1 7105300 : NEXT:R 


1006 REM PROGRAMA PARA REALIZAR DIBUJOS A 


He 
210 Y<2.I:NA>= € 1+ 1: HA>: 293, 1,HA>=XC< 1,1. 
Len 


260 FORI=1TOR:FORF=9TO1I-1: SP=SP+1R:HEXT 


300 I1FJ>=2THENGOSUBS40 


310 HEXTJ : HEXTD: SP 
320 FORII=1TO094000 : 
320 SCHCLP:GOTO1SO 
340 REM DIBUJAR 
3509 GRAPHICZ 

3606 COLORB+.B+.2.2 
370 DRANW2.X<D.1.1> 


2> 
3320 DRANJ2.,XXx<J-1>. 
396 RETURH 
460 RR=INT<RHDE 1 > 


READY. 


=9 : METI 
MEXT : SEOCNCLR:GOTO130 


> WCD-1,1>TOXCD.1.2>. WC 
PEI 1 TORA CITO PACTO 
8> : RETURN 


BOLETÍN DE SUSCRIPCIÓN - club commodore 


NOMBRE 
DIRECCIÓN 
POBLACIÓN 
TELÉR At 


Deseo iniciar la suscripción con el n.* 5 


(Enviar a la dirección del dorso) 


DESEO SUSCRIBIRME A “CLUB COM- 
MODORE” POR UN AÑO AL PRECIO 
DE 1.980 PTAS., QUE PAGARÉ CON- 
TRA REEMBOLSO AL RECIBIR EL NÚ- 
MERO CON EL QUE SE INICIA LA SUS- 
CRIPCIÓN. DICHA SUSCRIPCIÓN ME 
DA DERECHO, NO SÓLO A RECIBIR LA 
REVISTA (ONCE NÚMEROS ANUA- 
LES), SINO A PARTICIPAR EN LAS AC-, 
TIVIDADES QUE SE ORGANICEN EN 
TORNO A ELLA Y QUE PUEDEN SER: 
COORDINACIÓN DE CURSOS DE BA- 
SIC, INTERCAMBIOS DE PROGRA- 
MAS, CONCURSOS, ETC. 
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MINI-NOTAS 


la instrucción 


IF... THEN... ELSE 


por PERE MASATS 


E sta no es una instrucción standard 
de BASIC. Esto quiere decir que no 
está en el conjunto de instrucciones 
que se consideran las mínimas impres- 
cindibles para que un intérprete pue- 
da llamarse DE BASIC y, por lo tanto, 
no viene incorporada en los intérpre- 
tes de COMMODORE. Sin embargo, 
ciertas opciones ROM para los siste- 
mas 4000 y 8000 sí permiten utilizarla. 
También hay que decir que tanto el 
VIC como los sistemas 4000 y 8000 tra- 
bajan con instrucciones que no son 
standard de BASIC como SYS y otras. 

Si bien no podemos trabajar directa- 
mente con IF...THEN...ELSE, vamos a 
intentar sustituirla por alguna secuen- 
cia de BASIC ortodoxo. Para ello vea- 
mos qué hace esta instrucción. Las 
dos primeras partes de la misma son 
iguales que las que conocemos y la 
diferencia está solamente en la terce- 
ra el ELSE que aquí podríamos tradu- 
cir por SINO. Así, si la condición seña- 
lada por IF (si condicional) se cumple, 
se ejecuta lo que indica THEN (enton- 
ces) pero, si no se cumple, lo que se 
ejecuta es la parte ELSE (sino). 

Así, si tenemos: 


100 IF X=0 THEN 120 ELSE X=X-+1 
Y lo traducimos por: 
100 IF X=0 THEN 120: X=X+1 


esto nunca funcionará porque, si la 
condición se cumple, la próxima línea 


microelectrónica 
y control s.a. 


que se ejecutará será la 120 y, si no 
se cumple, el programa pasará a la lí- 
nea siguiente, la 110, en el caso más 
probable. De esto podemos deducir 
cuál será la solución a nuestro pro- 
blema: 

100 IF X=0 THEN 120 

105 X=X+1 

Para poder incorporarlo todo en una 
sola línea: 
100 ON —(X=0) GOTO 120 : X=X-+1 


Las pruebas CIERTO/FALSO en el 
BASIC de COMMODORE dan como 


resultado un «0» si es FALSO y un 
«—1» si es cierto (pruebe: PRINT 4=5 
y PRINT 5=5). Un número negativo 
en una instrucción ON...GOTO daría 
?2ILLEGAL QUANTITY ERROR. Por ello 
cambiamos el signo con —(X=0). 
Afortunadamente en esta instrucción 
un número fuera de rango (en nuestro 
caso «0») no obliga a la ejecución de 
la siguiente línea sino que continúa 
ejecutando el resto de la línea actual. 
Esto es cierto también si no hay más 
números de línea a continuación del 
GOTO. E] 


programa de utilidad 
para la impresora 


4:5s 
2 
2,.S 
2,.=3 
2.5 
2.S 
2.5 
208 


A 
AAA AAA 


READ". 


| 
ESTO ES UNA LS” 
1 s 


por P. MASATS 


=CHRTC1IS>:BSF=CHRISCS> 


ES 


Fig. 1 


N. Tallada, de Barcelona, nos manda un programa que permite resol- 
ver un viejo problema de la impresora del VIC. Consiste en que si quere- 
mos hacer una impresión utilizando los caracteres gráficos del teclado, 
la separación entre líneas nos impide obtener la unión de los dibujos 
de una línea con la siguiente. La solución parece que consiste en defi- 
nir el modo gráfico antes de hacer la impresión, pero entonces necesi- 
tamos definir los caracteres gráficos con lo que perdemos las posibili- 
dades del teclado. El truco que listamos en la figura 1 y del que damos 
una muestra más abajo consiste en definir el modo gráfico sólo durante 
la operación de avance de línea mediante las variables SIS (paso a modo 


alfanumérico) y BSS (paso a modo gráfico). 


club 


* commodore 
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JUEGOS 


dos interesantes 


juegos 


por P. MASATS 


Sin que sirva de precedente y 
aprovechando las festividades de principio de año 
incluimos en este número otros dos juegos 


E: primero de ellos tiene un cierto aspecto educativo, pues 
consiste en dar el nombre en letras de los números que van 
saliendo en pantalla. Este programa nos ha sido remitido por 
nuestro compañero Antonio González, de Microelectrónica- 
Madrid, que lo escribió para su hija. 

El segundo es uno más de los denominados «de marcianitos» 
y como en CLUB COMMODORE ha de haber de todo... 


JUEGO 
NÚM. 1 


190 REM pende mi oe e ade oe ade e ade ab ode ab a sde be pe da mb a DO 
+ 


20 REM e 
30 REM EL JUEGO DE LOS > 
40 REM NUMEROS . e 
50 REM * MICROELECTROMICA “Y 
60 REM *x CONTROL; BARCELONA 
7O REM mM q 


B0 REM adenda ode ole ode de ade de be ade e o be e ade de e db 
590 INPUT"DIME TU HOMBRE"; HO 
109 DIMTESCS5S4> 
110 BL*=" ":FOR==1TO0S: BL£=BL<+BL* : NEXT 
120 DATA"CIEN-TO *", "DOS-CIEN-TOS ", "TRES 
—CIEN-TAS ","CUA-TRO-CIENM-TOS ” 
130 DATA"QUI-HNIEMN-TOS " 
1409 DATA"SEIS-CIEN-TOS ","SE-TE-CIEN-TOS 
1, "DECHO-CIEN-TOS » "NO-VWE-CIEM-TOS ” 
156 DATA"TREIMN-TA_ ".,"CUA-REN-TA ". "CINC 
DUEN-=TA_ ", "SE-SEN-TA ", "“SE-TEN-TA " 
1606 DATA"OCHEN-TA ". "HO-VEN-=TA * 
120 DATAY NO "5 DOS "5" TRES "“"“Y 
UATRO “4 "Y CIN-=G0. "."W:SEIS." 
189 DATA"Y SIETE *","wW OCHO ","" NUEVE "> 
"UNO ",2DOS- *) "TRES. ", "CUA=TRO_ " 
199 DATA"CINCO ","SEIS ","SIETE ", "OCHO 
ANDENES DICES Na ONCE IS MNDORE 
200 DATA"TRECE ”,"CA-TOR-CE "."QUIN-CE ” 
“IDIECI=SETS "3 "DIECI=STIETE >” 
2108 DATA"DIECI—-OCHO *".,"DIECI-NUE-WE ".,."w 
EINTES“S*"vVEEN=TI=D0NA" 3 "MEIN=TISDOS  * 
220 DATA"YEIN-TI-TRES ","WEIN-T1-—CUA-TRO 
"o "WMEIN=-TI-=CINCO ".,"VWEIN-TI-SEIS " 
230 DATA"WEIN-TI-SIETE *","WEIN-TI-OCHO " 
¿ "WMEIN-TI-HNUEVE " 
246 FORX<=1T054 : READTES<%> : HEXTA 
2506 A=INTC1DOMRIHDCOO>>: IKS$=STRECA>:Lls-"" 
¿PRIHT"OQUE MUMERO ES ESTE"A 
260 INMPUTAS: GOSUBZ40 
270 BR="":FORX=1 TOLENCLIS> 
260 IFMIDSCLIS, >, 1><>"-—"THENBS=BS+MID*$<L 
I1$,X,1> 
290 HEXT: IFBSIAS+" "THEHPRIHT"mmnUY MAL 
"¿¡HOS;", EL HUMERO ES: ":PRINT"wWmM"ES:GOTO 
310 
300 PRINT*"MmMUY BIEN ";:HOS 
310 PRINT"Wwua PULSA UNA TECLA PARA 
CONT IHUAR Y 
320 GETAS: 1FAS=""THENS2O 
330 GOTO2506 
3940 IKS=RIGHT+CBLS+IK+S,9> 
350 FORI=1TOS:H$C1>=MIDSC IKE. 3MmxI-2,3>:C0< 
1+9>=WALCHSCI>>2 :HEXT 


360 FORI=P7TOS:H$cI>="":HEXT: IFYWALCIKLE>=09 
THENHE<S9>3="CERO ":GOTO4SO 

370 IFCCS5>=0THEN4DO 

380 IFC<5S>=1 THENNS<7>="UN MILLON ":GOTO4S 
a 

390 _ I1=1: GCOSUB4ECO : GOSUBSSO : HéC<7>O=LIS+ "MIL 
LOMNES 

400 IFC<6>=9THENISO 

410 IFCCE6>=1THEHNNS<S8o=">-L ":G0TO430 


420 1=2*: GOSUBIE0 : GOSUESSO : HECS>=L1£+"MIL 


430 IFC<7>=0THEH4SO 
440 1=3: GOSUB4CO : GOSUBSSO : HECS>=L IS 


450 LI$="":FOR*X=FTO019:LIS=L 1 $+H*$<>>5 : NEXT 
¿RETURH 
346580 Llisf="":FORIJ=1TO3 


47D ECIAPI=VALEMIDECHECI>,) JT: 1>>: NEXT 
9430 IFECLXCS><>OTHENLISSTESCOCS>> 

420 LI=CCS> RH 1040105: IFLI=9THENS7TO 
500 IFLI>=23BTHEHNHS2A 

510 LIS=LIS+TES<254+LJ>:COTOS7TO 

526 IFC<S5>=50THENS 49 

530 IFC<S>=0THENS 

590 LIgst=LIS$+TESCT +C<a>> 

5509 IFC<10>=0THEHSTO 

560 LIS=LIS+TESCI1E+CCIO>> 

570 RETURH 

530 IFLIS="CIEM-TO "THENLIS="CIEN " 
550 RETURH 


READY. 


Coso corKm cio A K 


JUEGO NÚM. 2 


1 DATA191,2,191.2.191.2.207.8.223,8.0.+4. 

219,.2,217.2.213.2.231,8.223.8 

2 DATAS, 4,219,2,217.2.213.2.231.8,223.8. 

219.2.217,2.219.2.213.12,.0.4 

= OS 16,16.168,16€6,16,16,16.0,0.0.255, 
,»a, 

€ DATACE4.0.1,16,.0.64.1.130.0.0.0,.0.0.0,9 

-0,0,0,/0,09,0,0,09,50 

7 DATAES. 19083, 124,40.56.1€.16,0,8,12,14.2 


3,252.,122,38,1 

8 _DATAS. 224. 120.46, 1206,224,0.0,1.38.122. 
252,28,.1494,.12,.8 

9 DATAS.16.16.56.40.124.1098.68,1289, 100,9 
5,63,56,112,485.16 

10 DATAS.7,30.116.30,7,.5.0.16,43,112.56, 
63.95,100,1283 

PE A 16.32.64, 1239, 125.€64.32,16 
.3,34%,2,1 

13 DATA. €6, 126,65. 235.,255.65,€0. 12.289. 
30,127,255, 255. 252.56 

15 _DATAS.3.24.56.43,.232,.0.0,0,.0.56,252,25 
5,255,127 

16 POKES2, 22: POKES6. 23: CLR:POKESES79. 15 
17 POKESES79,25: PRINT "TIBIA AROSA 
13 PRINT" momia <2 CONTROLS>>" 

19 PRINT"M 1 AND 2 TURNS SHIP":PRINT"M 3 
a 32 MOWES SHIP":PRINT"M O FIRES A BEA 
20 PRIHT"xma 
THE SPACE BAR" 
21 FOR2=1T022 +: READA : POKESES76. A: POKESES7 
5. A 

22 READB: FORX=1 TOB*x100: NEXT: FPOKES6376.a: 
POKE3ESTS5, BD: HEX=XTZ 

23 PRIHT"EMRPRESS ANY KEY" TO START" 

24 GETAS: 1IFAS=""THENZ34 

30 FORA=232T03392READE:POKES120+A.B:HEXT 
35 FORA=382710470: POKES120+A,+ PEEK<32763+A 
>: NEXT 

AS 253 : FOKE36266€, PEEKC36865>0R 
1 

50 SC=0:X2=349 

690 »=7901:5X1=>3 

65 POKEG. 32 

70 PRINHT"0": POKESESTI.:S 

30 _ FORA=7F6528TO7679: POKEA. 33: NEXT: FORA=S1 
5694105136 : POKEA. 322: HEXT 

30 FORA=7E280T0S164STEP22:POKEA. 23223: NEXT 
100 FORA=1TO04 

110 IFPEEKCRCA>>>73S3THEM1I9O 

120 I1FA=1 THENR<C1>=IHTCSORRHDOE 177030 TA 
13>=IHT<SMRIDC 1594955 MX 15=IHTCOMRERNDCi2+21 


TO JUMP HYPERSPACE USE 


> 

121 IFA=1ANDSC>3D9ANDIMTA SARHD Lc1>>=2THEN 
TC<19=949 RESTOS 41 MACS 

129 IFA=2THEHR=IHT<ZORENDO1>7 ¿RIZ2IR 7703 
E¿RMAZ2Z253: TC2=IHTOSORERIHDO 104450 ME IATCEMRND 
<1>> 

125 IFA=2AMDM< 1 THENHMI2Z53=23 

126 IFA=2ANDM>1 THENMID>=-23 

127 IFA=2ANDSCO3OGANDIMTOSARHDO19>>=2THEH 
TZ) =99 ¿REZAR A MZA 

129 IFA=S3THENR=IMHT<ZOWMRINDXI1>>7) ¿RED Z3+ 
<RRZZ> + TES =INTOESORRIDO 19+45> 5: M=INT<4MRHD 
c1>> 

130 IFA=3THENM<3>=21 

131 IFA=S3ANDM=2THENM<3>=21 

132 IFA=S3ANDM=1 THENMCOS>5=—1 

133 IFA=S3ANDSC>30900MANHDIMT<S5SRXRMHDC152)>7=2 THEN 
TB >)=44 REZO =AS+20 2: Mo35>=-—1 


135. 1FA=494THEHR<4 >< IHTCZORRMNDO1>+8143>5:T< 
4>5=INTC<SMARINDC159+45>5 : M9 5 =IHTCAMRNDOE19-23 


Y 


136 I1IFA=4AMDSC>3B00AND IMT<SMARMDC1>>=2 THEN 
T¿93=44 REGAR D 14D AA 1 MR 22 
190 POKERCA>.,32: REOA>)=RCEAFAMCAS 
195 IFTCA>=44THEMPOKESESTE. 200 
159 IFRCEA>O)=%X+51 THENCEOO 
155 POKESESTE. O 
1€0 IFPEEKC<RCA>><>D2Z2THEM1SO 
170 POKERCA>) TIAS: POKERCA>+30720., A+2 
1809 J=PEEKC197> 
1381 IFI=5THENX2=>2+1 : 1IF2=42THEHX2=34 
1352 I1FI=56THEN-=<2=X2-1 *: IF X2=33THENX2=41 
133 IFJ]=4AHND>1<15THEHPOKE<+541,32:X1=X1+1 
139 IFI=232THENPOKE%+%1,32:<=76981+<22 HC IN 
TCERNDC1IHZ2O>7>5> >: 41 IMTCEZOMRIDE1>> 
1825 IFIJ=232THENSC=SC-106: IFSC<OTHENSC=0 
156 1FJ=60THEM4500 
137 PRINT" Amb Lal 
199 IFI=59AND+1>5THENPOKEX+>51.32:X1=X1-1 
200 POKEX+X1, 42: POKEX-X+1+307209,7 
300 HEXT:GOTO1OGS 
400 IF-2=33THEMNF=22:F1-=29 
401 IFA2=35THENF=22:F1=343 
402 IFX2=36THENF=1:F1=3 
493 I1FX2=37THENF=-21:F1=42 
404 IFX2=3S5THENF=-22:F1=-=29 
403 IFX2=39THENF=-23:F1=33 
406 IFX2=380THENHF=-1:F1=-20 
407 1FX2=41 THEMF=21:F1=42 
410 F2=Xx+X1:J=250 
420 F2=F2+F : IFPEEK<F2><>32THEH350 
4309 POKEF2.F1:POKESCGS77.J:J=J-2: POKEF2+3 
720.2 
440 GOTO420 
450 U=PEEK<CF2> 
455 IFPEEK<F2> 
4609 POKEF2.231 
470 POKE36ES75. 150: POKES3E€S77.,15350 

75 IFU=44THENSC=SC+5S0 : U=32:G0OTO490 
430 SC=SC+10:U=32 
4590 PRINT" ==2BBDRDDDISC 
510 FORNW=X+>1+FTOF2STEPF : POKEN. 22: NEXT 
515 POKESEST77.9: POKES3SEST7S. 0: POKEFZ.U 
520 GOTO200 
605 FOR=<=1TO01000 : HE=T : POKE3€S692. 240: POKE 
36366, 150: POKE263979,25: PRINT" Om": POKESCS 
73,0: END 


READ". 
Ml 


<3AORPEEK<F2>>97THENS1O 
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FILOSOFÍA APLICADA 


la ley de Murphy 
y sus corolarios 


(y 11) 


Antes de terminar este artículo de- 
dicado a los acontecimientos enojo- 
sos que suelen acontecer durante el 
desarrollo de las más serias activida- 
des, vamos a contar un caso que nos 
ha ocurrido a nosotros en CLUB COM- 
MODORE. Resulta que para ilustrar el 
artículo de esta serie publicado en el 
número anterior, preparamos un BUG 
harto sorprendido porque — para si- 
mular una aplicación de la ley de 
MURPHY — debía ser impreso al re- 
vés. Sucedió, no obstante, que no de- 
bimos hacer constar con claridad la 
necesidad de imprimir la viñeta cabeza 
abajo y el buen impresor (al cual no 
agradeceremos nunca bastante la ayu- 
da que nos presta), con un criterio 
estrictamente práctico, decidió que 
las cosas deben imprimirse derechas 
en toda tierra de garbanzos... Total 
que, de rebote, hemos ilustrado un tí- 
pico caso de aplicación de esas fuer- 
zas de la Naturaleza que tanto nos 
fastidian. 
O 


Ur n capítulo especial dedicado a los 
electrónicos: 


— Todo cable cortado a la medida 
exacta resultará corto. 


— Las tolerancias se acumularán en 
el mismo sentido para complicar la 
operación de montaje. 


— Dos equipos idénticos controla- 
dos en condiciones idénticas no serán 
nunca idénticos a la hora de utilizarlos. 


— La disponibilidad de un compo- 
nente será inversamente proporcional 
a su necesidad. 


—-Si se necesitan N componentes 
para la realización de un proyecto ha- 
brá N-1 en stock. 


— Si se necesita una resistencia de 
un determinado valor, este valor no 
existirá y no se podrá obtener por nin- 


por PERE MASATS 


guna combinación de valores standard 
en serie o en paralelo. 


— Una herramienta que se nos es- 
cape de las manos caerá o en el lugar 
más inaccesible o sobre el componen- 
te más frágil. (También conocida como 
LEY DE LA GRAVEDAD SELECTIVA.) 


— Todo dispositivo tomado al azar 
de un grupo con una fiabilidad de un 
99 % formará parte siempre del con- 
junto del 1 %. 


— Cada vez que se conecte una lí- 
nea trifásica, el orden de las fases es- 
tará invertido. 


— Un motor girará siempre en sen- 
tido contrario al deseado. 


— La probabilidad de ausencia de 
una cota en un plano está en propor- 
ción directa a su importancia. 


— Los componentes intercambia- 


bles no lo serán jamás. 


— La probabilidad de fallo de un 
componente, de un conjunto, de un 
subsistema o de un sistema es inver- 
samente proporcional a su facilidad de 
reparación o sustitución. 


— Si un prototipo funciona correc- 
tamente dejará de hacerlo en cuanto 
se inicie la producción. 


— Los componentes que no deben 
ni pueden ser nunca montados inco- 
rrectamente lo serán en producción. 


— Cuando se conecta un «tester» 
para medir corriente continua siempre 
está a máxima sensibilidad y con la 
polaridad invertida. 


— Siempre se caen los componen- 
tes más delicados. 


— Los registradores gráficos depo- 
sitan más tinta sobre los seres huma- 
nos que sobre el papel. 


— Un circuito protegido contra todo 
fallo será el primero en estropearse. 


Si no es así, provocará la destrucción 
de los demás. 


— Un disyuntor de protección ins- 
tantánea de la alimentación se dispa- 
rará siempre demasiado tarde. 


— Un transistor protegido por un fu- 
sible rápido protegerá al fusible, que- 
mándose el primero. 


— Un oscilador con auto disparo se 
obstinará en no oscilar nunca espon- 
táneamente. 


— Un oscilador a cuarzo oscilará a 
una frecuencia distinta a la prevista 
(si oscila). 


— Un transistor NPN será general- 
mente un PNP. 


— Un condensador con un coeficien- 
te de temperatura negativo empleado 
en un circuito crítico resultará tener 
un C.T. de 750 ppm/grado C. 


— Una avería no se manifestará 
nunca antes de haber pasado la ins- 
pección final. 


— Un componente o un instrumen- 
to corresponderá a las especificacio- 
nes anunciadas sólo durante el tiempo 
necesario para pasar la inspección de 
entrada. 


— Si se reemplaza un componente 
manifiestamente defectuoso en un ins- 
trumento que presenta una anomalía 
intermitente, ésta reaparecerá justo 
cuando se ponga en servicio. 


— Después de fijar los 16 tornillos 
de una cubierta de un instrumento, es 
cuando nos damos cuenta que hemos 
olvidado una conexión vital y además 
caemos en la cuenta que hemos con- 
fundido las cubiertas. 


— Cuando un instrumento está com- 
pletamente montado es normal que so- 
bren componentes en la mesa de tra- 
bajo. 


— Las juntas herméticas pierden. 
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TRECE AXIOMAS BÁSICOS 
DE LA CIENCIA 


1. Teorema de Patrick: Si un expe- 
rimento funciona es probable que sea 
porque utilizamos equipo inadecuado. 


2. Constante de Shinner: Es la can- 
tidad que, al multiplicarla, dividirla, 
sumarla o restarla del resultado obte- 
nido, nos da el resultado previsto. 


3. Postulado de Horner: La expe- 
riencia varía proporcionalmente a la 
cantidad de equipo estropeado. 


4. Ley de perversidad de los obje- 
tos inanimados: Todo objeto inanima- 
do, independientemente de su compo- 
sición y configuración, puede producir 
en cualquier momento, de forma total- 
mente inesperada y por razones que 
permanecerán siempre oscuras y mis- 
teriosas, actos perversos en contra de 
nuestros deseos y proyectos. 


Lo que ofrece la 
publicidad 


El Departamento de 
Investigación y Desarrollo 
resuelve el problema 


Lo que marketing opina 


Lo que el cliente pide 


5. Axioma de Allen: Si todo falla, 
léase el manual de instrucciones. 


6. Corolario de la compensación: 
Se puede considerar un éxito todo 
experimento que nos proporcione un 
50 % de resultados equivocados, con 
referencia a la teoría propuesta. 


7. Ley de Gumperson: La probabi- 
lidad de que se produzca un hecho 
determinado, es inversamente propor- 
cional al deseo que tenemos de que se 
produzca. 


8. Principio general de la Ciencia: 
Por definición, cuando investigamos lo 
desconocido, no sabemos lo que va- 
mos a encontrar. 


9. Regla de Kettering: Si algo no 
funciona es por una razón diferente a 
la que creemos. 


10. Ley de Gummidge: La expe- 
riencia de un investigador científico, 
varía inversamente con el número de 
palabras que el público en general en- 
tienda de tal sujeto. 


11. Principio de utilidad: Ningún 


experimento es un fracaso total; co- 
mo mínimo, sirve como un mal ejem- 
plo. 


4 Ss 
NL ace, 


vendedor 


El pedido que cursa el 


12. Ley de Anderson: Nunca se es- 
tropea el componente del cual tene- 
mos recambio. 


13. Corolario final: Cuando suene 
el despertador por la mañana, páralo, 
pero no te levantes pues es posible 
que todo te salga mal. (Alguien me 
dice que éste es un antiguo proverbio 
chino.) 


Como puede verse hemos reunido 
una lista exhaustiva de principios de 
indiscutible utilidad. No obstante, si 
algún lector cree que existe alguna 
otra «LEY BÁSICA DE LA NATURA- 
LEZA» que falte en esta relación que- 
da invitado desde aquí a remitírnosla 
para — en caso de quie no se pierda — 
proceder a publicarla. 


O 


Y para terminar ofrecemos una pe- 
queña ilustración de lo que — se dice 
que — suele ocurrir en las empresas 
modernas entre el momento en que 
un cliente decide comprar un artículo 
y lo que se le sirve en realidad. (Como 
es evidente se trata de una exagera- 
ción representativa.) 5 


Lo que el jefe de 
producción entiende 


f! 


1 


] 
RS, 


ve 


Lo que el jefe comercial 
impone 


El producto final 
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NUMEROLOGÍA NO ESOTÉRICA 


introducción 

a la estadística: 
la media 

y la desviación 
standard 


ÉSTA ES LA PRIMERA PARTE DE UNA SERIE QUE SE VA A DEDICAR 
A LAS APLICACIONES MATEMÁTICAS DE LOS ORDENADORES. 
VAMOS A TRATAR, EN PRIMER LUGAR, DE LA MEDIA, Y DESPUÉS, 
DE LA DESVIACIÓN STANDARD. - EN RESUMEN, QUÉ SON Y PARA 
QUÉ SIRVEN 


Si deseamos evaluar la velocidad 
de un automóvil en un recorrido de- 
terminado para poder compararla con 
otro vehículo, decimos: este coche 
ha realizado una media de 90 Km/h. 
Es decir, lo que generalmente utiliza- 
mos es la media. Tomamos el tiempo 
invertido y lo dividimos por la distan- 
cia recorrida. Así tenemos una veloci- 
dad que es la que el automóvil hubie- 
ra llevado si todo el tiempo hubiera 
circulado a la misma velocidad. Con 
esto obtenemos dos cosas: 


1. Tenemos una cantidad repre- 
sentativa del comportamiento del 
automóvil y de su conductor y, en 
cierta medida, independiente de fac- 
tores externos como el viento pues, 
en estadística, se supone que, a la 
larga, estos factores se anulan a sí 
mismos. Para aclarar esto último tén- 
gase en cuenta que el viento que so- 
pla de frente en un momento dado, al 
cabo de una o dos curvas, sopla por 
detrás o que la pérdida de velocidad 
debida a una cuesta queda compen- 
sada por la aceleración en la siguien- 


por PERE MASATS 


te pendiente. Debido a esto, la media 
será más representativa cuanto ma- 
yor sea el recorrido. 


2. Con esta media podemos com- 
parar el comportamiento de dos auto- 
móviles en recorridos de diferente 
longitud pues la media es relativa- 
mente independiente del kilometraje 
que se haya realizado. Teóricamente 
es así pero, en la práctica, todos sa- 
bemos que el rendimiento del conduc- 
tor no es el mismo durante la primera 
hora de conducción que cuando lleva 
ocho horas al volante. 


La fórmula para obtener la media 

es: 
SUMA DEL TIEMPO 

MEDIA => —_——— — _—__—_—_—_ 

SUMA DEL RECORRIDO 

En la fórmula hemos escrito SUMA 
DEL TIEMPO y SUMA DEL RECORRI- 
DO en vez de TIEMPO Y RECORRIDO 
por la siguiente razón que exponemos 
a continuación. Imaginemos que que- 
remos saber la media del peso de un 


conjunto de latas de sardinas. Enton- 
ces la fórmula será: 


SUMA DEL PESO DE 
LAS LATAS 

MEDIA = 
NÚMERO DE LATAS 


Utilizando esta fórmula, la media 
dará un valor que nos dirá qué peso 
tendría una lata ideal fabricada con el 
mismo sistema que las anteriores o, 
dicho de otra forma, el peso probable 
que tendrá la próxima lata que saque- 
mos del montón del que hemos saca: 
do las anteriores. Así tenemos la pri- 
mera posibilidad de «predecir el futu- 
ro» que caracteriza a la estadística 
que es la principal razón por la cual 
los políticos profesionales la utilizan 
tanto. (Un inciso jocoso: el general 
De Gaulle decía que las estadísticas 
son como los bikinis: que enseñan 
mucho pero ocultan lo esencial). 


LA DESVIACIÓN STANDARD 


Como hemos visto, la media nos da 
una idea de qué tipo de valor podemos 
encontrar cuando examinamos un con- 
junto de artículos (también se les lla- 
ma «muestras») pero supongamos 
que tenemos dos conjuntos, de tres 
botellas de refresco cada uno, que en 
la etiqueta llevan escrito: «CONTENI- 
DO: 1 LITRO». Al primer conjunto, le 
llamaremos «MARCA A» y, al segun- 
do, «MARCA B». Si medimos el con- 
tenido de la marca A encontramos los 
siguientes valores: 


Botella 1: 950 cl. 
Botella 2: 1.000 cl. 
Botella 3: 1.050 cl. 
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Como se ve, la media es: (950 + 
1.000 + 1.050)/3 = 1.000 cl. o sea 1 li- 
tro. En cambio, en la marca B tene- 
mos: 


Botella 1: 900 cl. 
Botella 2: 1.000 cl. 
Botella 3: 1.100 cl. 


Con lo que la media es: (900 + 
1.000 + 1.100)/3 = 1.000 cl. que es la 
misma media que en la marca A pero 
si observamos los dos juegos de va- 
lores vemos que la media no nos dice 
que la marca B va más a su aire a la 
hora de embotellar sus productos. 
Pues bien, la desviación standard es 
lo que nos expresa la dispersión de 
un conjunto de muestras (para más 
claridad diremos que también se le 
llama DESVIACIÓN TÍPICA). Su fórmu- 
la es: 


DESVIACIÓN STANDARD o [sigma] 
= SOR ((SUMA DE LAS DIFERENCIAS 
DE CADA VALOR Y LA MEDIA) 4 2/EL 
NÚMERO DE VALORES MENOS 1). 


Esta cantidad representará la varia- 
ción de cada una de las muestras re- 
feridas a un número dado que, en este 
caso, será la media. La desviación 
standard es tal que, por razones cuya 
demostración escapa al propósito de 
este artículo (y a la paciencia de mu- 
chos lectores), si tomamos el valor de 
la media y le sumamos [sigma] y se 
lo restamos obtendremos dos valores 
que serán los límites entre los que 
estará el 68 % de las muestras que 
tomemos. Si hacemos lo mismo pero 
con [sigma]*2 tenemos los valores 
que contienen el 95 % de la muestra 
y para [sigma]*3, el 99,7 %. Esto es 
así si el conjunto de valores que to- 
mamos responden a lo que se llama 
una distribución normal que es a la 
que responden, generalmente, los fe- 
nómenos de la Naturaleza. 

Para ver esto de una manera prác- 
tica podemos cargar y ejecutar el pro- 
grama de la figura 1. Si entramos los 
datos de las dos marcas de refrescos 
obtendremos los siguientes valores: 


MARCA A — MEDIA = 1.000 cl., 
DESVIACIÓN = 50 cl. 
MARCA B — MEDIA = 1.000 cl., 


DESVIACIÓN = 100 cl. 


REM 
REM 
REN 
REM P. MASATS 
REM EAPRCELOMA : 
mi==a 
DIm-=22S0> 


PROGRAMA PARA 


GOSUB22A: PEN 


z 


PRINMNT 


PPRIMT 


DADA HINDI 


PRINTS1 


GOTOSa 
PEM ENTPAP DATOS 


xl 
2 
3 
a4 
Ss 
Ss 
Ta) 
=] 
=] 

1 

1 

1 

1 
c 

1 

1 

1 

1 

1 

1 
2 
2 
5) 


NANND0 


1FHM>M1THEMN2Z3A 
IFHO2THENIZA 
FOPI=1TOH 
PRIMTI: 
THPLIT< IS 
HEXTI 

FETLUPN 

PEM CALCULAR 
E H MUESTRAS 
PEM 

s<53=a 

s4=a 
FORI=1TOH 
SADA IA 
A a de 
HEXTI 

M2=S2.-4M 


NONA 


D00202000990000090500000900 


EM EE 


PRETLUFPH 
END 


N-D00J1RRFANIN PODA 


AAA ID ZO 
D00903099590099 


PEAD". 


Lo que nos da unas cifras que po- 
demos asociar a las características 
de los datos que tenemos. 


Vamos a examinar un ejemplo para 
ver la aplicación de estos porcentajes 
tan raros que resultan de sumarle y 
restarle a la media los múltiplos de 
[sigma]. Supongamos que tenemos 
que diseñar un puente de acero y 
— Claro — hay que seleccionar la 
marca de acero que más nos con- 
venga pero si sólo hacemos caso de 
la publicidad de los fabricantes va- 
mos a acabar hechos un lío. Sin em- 
bargo, podemos pedir que se nos su- 
ministren para cada calidad de acero 
la media y la desviación standard de 
— por ejemplo — la resistencia. Su- 
pongamos que nos dan lo siguiente: 
Acero 1; 450 MPa. (megapascals) de 


16- 


PRINT"OR*+RHHESTADISTICA 
PRIMNT"CALCULO DE LA MENIA Y o": 
PRINT"LA DESYIACIOMN 
PPRIHT"+++rt+t+r+r+rrrrrrrrrrrr”srr” 
ENTRAR DATOS 

GOSUBS31A0:REM CALCULAR 


PRINT"LA DESYIACION 


LA MEDIA '" 


S1=SORT CSI 


CALCULAR LA MEDIA 


Y LA DESYIACION ESTANDAR: 
MICPOELECTPRONICA 


Y CONTROL 


SEPT. -— 13982 


IHRRRA 
ESTANTIAR*:; 


MEDIA 'Y DESYIA 


PRINT"PARA": GN: "MUESTRAS" 
PPRINMNT"LA MEDIA ES: 


"53m 


ES: " 


GETAS : TFAF=""THENZ2AA 


THPUT "CUANTAS MUESTRAS": 


LA DESYIACIO 


HI> 


ECTOP 


Hit 10 o 


media con una desviación típica de 
10 MPa. Esto significa que un 99,7 % 
de las piezas construidas con este 
acero tendrán una resistencia entre 
420 y 480 MPa. o sea que en el diseño 
hemos de calcular las dimensiones de 
las piezas teniendo en cuenta el peor 
caso: 420 MPa. Por otro lado, el Ace- 
ro 2 nos da una media de 500 MPa. y 
una desviación de 40 MPa. ¿Cuál es 
mejor? Aparentemente el segundo 
pues su media es más alta pero si cal- 
culamos el significado de la desvia- 
ción veremos que dentro de 3*[sig- 
ma] (99,7 %) podemos encontrar pie- 
zas de 500 +/— 40*3 = 380 a 620 
MPa. que, utilizando el criterio del 
peor caso, nos obliga a prever la pre- 
sencia de piezas de 380 MPa. con lo 
que el diseño queda seriamente afec- 
tado. E 
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COLABORACIONES 


resolución de sistemas 
de n ecuaciones 
y WN incógnitas 


Otra vez vamos con la sección despistada porque este programa es ideal 
para NUMEROLOGÍA NO ESOTÉRICA, pero como las colaboraciones hay que 
aprovecharlas cuando surgen y ésta es una aplicación muy frecuente en cálcu- 
lo... De su autor no sabemos mucho, pero desde aquí le convocamos a partici- 
par con frecuencia dada la calidad de esta — su primera — colaboración. 


R esolver un sistema de dos ecuacio- 
nes con dos incógnitas no presenta 
problema. Es una operación sencilla y 
rápida. Si el sistema es de tres ecua- 
ciones la cosa se complica ligeramen- 
te pero, con cuidado y tiempo, se lo- 
gran buenos resultados. Si el sistema 
es de 4, 5, 6... ecuaciones, ya el cálcu- 
lo se hace muy laborioso y frecuente- 
mente sujeto a errores. 

El VIC-20 no permite el manejo di- 
recto de matrices, al carecer de las 
instrucciones MAT READ, MAT INPUT, 
etc., así como tampoco la multiplica- 
ción matricial directa ni el cálculo del 
determinante de una matriz. 


1 PRINTS 


S REM RESOLUCIOM DE SISTEMAS DE ECUACION 
s 


PR IIART Pd ad o ss sd o e od o oe e o sd o ob 
PRINT"NSISTEMAS DE ECUACIONES" 
PR IMT "7 Te de od ad ad o od de o e a dd 0 e a a de a a a 
PRINT"ESTE PROGRAMA CALCULA” 
LAS SOLUCIONES" 
SISTEMA DE" 

H ECUACIONES" 


PRIMT" 
PRIMT" 
PRINT" 
PRINT" 

A PRINT" 


DE LJH 


con" 


MH TIMCOGHITAS" 


El programa que he desarrollado 
permite la resolución de n ecuaciones 
con N incógnitas gracias a un subpro- 
grama (instrucciones 500 a 680) que 
calcula el valor de los determinantes. 

La única precaución que hay que to- 
mar es evitar que el primer coeficien- 
te de la primera ecuación sea cero. Si 
así fuera, bastaría cambiar el orden de 
la primera ecuación y situarla en se- 
gundo lugar. 

Para la resolución del sistema se ha 
seguido la regla de Kramer, que da los 
valores de las incógnitas dividiendo el 
determinante de cada una de ellas por 
el determinante del sistema. 


HEXTA 
REM _DETERMI 
FORG=1 TOM 


NEXT 
GOSUESOG 
DD=D-D1 

PRIMT 
HEXTR 
PRINT 
GETAX 


¿PRINT 
:IFAS= 


IFAS="S"THE 


116 REM 
» TTIENAN5OS TE HN LEN 


PRIHT:PRINT"COEFICIENTES DE" 


FORA=1 TOH 
PRIHT:PRI 
FORBE=1T0H 


INHPUTAACAs B>:TTC<As» B>=AACA. B> 


HEXTEB 
HEXTA 


PRINT:PRIMNT"TERM. INDEPENDIENTES" 


FORA=1 TOM 
IMPUTL<IA> 
HEXTA 


REM DETERMIMAMTE DEL SISTEMA 


GOSUBSOG 

Di=D 
PRINT:PRIHT" 
FORR=1TOH 
FORA=1TOH 
FORB=1TOM 

TTCA» Bo=AACA. E> 
HEXTE 


INTRODUCCIOM DE DATOS 
120 IMPUT"HO. DE IMCOGHITAS"5H:DIMARACH. > 


NT"ECUACION "A 


ASOLUCIOMESE" 


GOTO4=0 

END 

REM FESOLUC 

FORZ=MTOSST 

FORB=2TOM 

536 FORA=1 TOM 

540 TCA:1>=TTCA 

ARTTC1AL BS TTC1LO 
HEXTA 


HEXTE 
1IFZ=2THENGS7 
FORA=1TOH 
TCA-23=TC A. 
HMEXTA 
FORB=1TOM-1 
FORA=1TOH-i 
TTCA.E>=TCA 
HEXTA 

HNEX=TB 

HEXTZ 
D=Tc<1,1>%eTC< 
RETURH 


¡PRINT 


s20 


READ". 


por A. CERDÓ 


El determinante del sistema contie- 
ne los coeficientes de las incógnitas. 
El determinante de cada una de las in- 
cógnitas se obtiene sustituyendo en el 
sistema los coeficientes de esa incóg- 
nita por los términos independientes. 

Para resolver un determinante se 
han seguido los pasos siguientes: 


1. Sumar a los elementos de cada co- 
lumna, números proporcionales a 
los elementos de la primera colum- 
na, con el fin de que los elementos 
de la primera fila, excluyendo el 
(1,1), sean ceros. Con esta opera- 
ción, el determinante no cambia de 
valor. 


2. A continuación, desarrollar el deter- 
minante por el procedimiento de 
las menores. 


Estos procesos se repiten una y otra 
vez hasta que la dimensión del deter- 
minante sea 2. 


HANTE DE LAS INCOGHITAS 


TT) RA=LEGIA 


¿PRINT "BOB CHRTE CESA RO M=" DD 


"DESEA CONTIHUARISAN>" 
*"*THENISO 


IFAS="H" THEHEND 


HCOLR:PRIMT:PRINT: coTO1208 


IOHM DE UN DETERMIMANTE 
ER=I 


2 


a ¿TEA B>=TT<C A) BE>-TTCA.1 
> 


(=] 


2xTC1,.1> 
+1.B+1> 


2,2>-Tc<1. 


ZIXTIZ,1> 
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El programa dará mensaje de ¿DIVI- 
SION BY ZERO 


ERROR IN 540 


Cuando el elemento (1,1) = 0 en cu- 
yo caso el sistema tiene dos ecuacio- 
nes proporcionales. 


ab abs de e ad o de e bb dd pe e e pp se 
SISTEMAS DE ECUACIOMES 
dada 
ESTE PROGRAMA CALCULA 
LAS SOLUCIOMES 
DE UN SISTEMA DE 
H ECUACIOMES 
COn 
NH IMCOGNITAS 


AIROSO OO 
HO. DE INCOGHITAS 

a 

COEFICIENTES DE 

ECUAC ICH ll 

LAR 

a a 

PR 

ECUACION 2 


ECUACION 3 
AA 


e=-1 
DESEA CONTIMUAR<SmM> 


NO. DE INCOGHITAS 
os 


COEFICIENTES DE 
ECUAC ION 1 


DERE 


ACTION 


! 


PRE pr 


] 


! 
”NAUNOC 


CUACION 


1 


3d ym Ur IDA dd 
t 
Ayna Sn 


| 


UNNE 
3 
n 
+ 
z 


Nr 


En la figura 1 se da el listado del 
programa y en la 2 un ejemplo de apli- 
cación del mismo. Al final del ejemplo 


el ordenador debe dar: 


¿DIVISION BY ZERO 
ERROR IN 540 
READY. 


TERM. THDEPEMNDIEMNTES 


2 
= 
7 
o 
1 


DESEA CONT IMILAR:<S.H> 


HO. DE INCOGHITAZ 
> 4 


COEFICIENTES DE 


ECUACION 1 
? 13.6 

? 15.42 

? 12.04 
?-8.29 


ECUACION 2 
A E 

?-5. 43 
?-12.62 
?-1.86 


ECUACION 3 
? 28.6 
?-85.4 

? 22.52 

7? 2.01 


ECUACION 4 
? 2.25 
CO 
? 3.75 
?-S5.55 


TERM. INDEPENDIENTES 
?-6053.828 
?-37796.€5 
T 426098.€5 
?-173609.56 

00 MU 0 2 163 
Az 2554. 99904 
B=-2301.9992€ 
C= 4894. 99926 
D= 8755. 9958389 
DESEA CONT INUAR<S-H> 


HO. DE IMCOGHITAS 
?3 


COEFICIENTES DE 


ECUAC 10H 1 
Al 
TN e 
sd 


ECUAC ION 2 
AZ 
e 
Eb 


ECLUACION 3 


micro/DiE 
od 


Electrónica 


En sus páginas ya se han publica- 
do, desde el n.? 1 (febrero 1982): 


O Programas para VIC-20: 


— Generación de sonido y pro- 
grama para piano 

— Cálculo de estabilizadores 
con Zener 

— El Despertador 

— El Quinielista. 


O Se han publicado artículos sobre 
los siguientes temas: 

— Lenguajes de programación. 

— La ampliación de un ordena- 
dor con los periféricos. 

— Qué es y cómo funciona un 
ordenador personal. 

— Cuadro de ordenadores pro- 
fesionales/personales en el 
mercado español. 

— Interfaz para cassette. 

— Cuatro puntos decisivos en 
la elección de un ordenador. 

— Los modems. 

— Discos flexibles (Noppy disk). 

— Realización de un teclado 
ASCII! a partir de un hexa- 
decimal. 

— Las nuevas CPUs: arquitectu- 
ras distintas, más potencia, 
mayor flexibilidad. 

— Serie de artículos sobre los 
microprocesadores con análi- 
sis de todos sus aspectos, en 
forma progresiva. ' 

— Aplicaciones de microproce- 
sadores: un sistema de semá- 
foros en la vía pública, Sis- 
tema de alarma anti-robo, 
Sencilla aplicación para mo- 
tores de cassette o de jugue- 
tes eléctricos. 

— Rutinas útiles para la clasifi- 
cación de datos (SORT). 

— Descripción de la PIA. 

— Los convertidores analógico- 
digitales y digital-analógi- 
cos. 

— Nuevos equipos operativos 
de burbujas magnéticas para 
la investigación y las aplica- 
ciones industriales. 

— Los cálculos de puentes de 
medida realizados con micro- 
ordenador. 

— VIC-20 y micros PET/CBM. 

— Diseño y simulación de un 
proyecto con microprocesa- 
dor, desarrollado con el AlM- 
65. 

— Las impresoras. 

— Temporizador programable. 


Fichas técnicas de microprocesa- 
dores y de micro-ordenadores 


Para números atrasados y para 
suscripción anual (1.975 ptas.), 
dirigirse a: 

REDE - Apdo. 35400 - Barcelona 
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CORREO ABIERTO 


Los lectores que se sientan impulsados a plantear una consulta que pueda aclarar sus dudas 
y — ¿por qué no? — la de otros muchos, pueden manifestarla por escrito remitiéndola a: 
CORREO ABIERTO - «Club Commodore» - Calle Taquígrafo Serra, n.* 7, 5.* planta - Barcelo- 
na-29. Pondremos todas nuestras luces a su disposición para las aclaraciones. ¡Que nadie 
se quede con sus dudas, cavilando en solitario! — P. MASATS 


F. Gutiérrez, de Málaga, nos pre- 
gunta: ¿Existe la posibilidad de que 
un programa «cargue» a otro? 


Respuesta: En cuanto a este pro- 
blema nos remitimos al artículo 
«GRANDES PROGRAMAS EN POCA 
MEMORIA» publicado en el número 2 
de CLUB COMMODORE donde se da 
solución a este asunto. En todo caso 
el ejemplo para el VIC quedaría: 


5 REM PROGRAMA 1. 
10 POKE45, PEEK(174) 
PEEK(175) : CLR 
20 FORI=1TO10: PRINT"PRG1": 

NEXT 
30 POKE45, PEEK(55) POKES36, 
PEEK(56) : LOAD " PRG 2 ”, 8 


POKE46, 


M. Pérez, de Barcelona, nos pregun- 
ta: ¿Se pueden dibujar piezas de aje- 
drez en el VIC? 


Respuesta: De hecho para esto 
(entre otras cosas) sirve el editor de 
caracteres publicado en nuestro nú- 
mero 3 (en las ocho páginas que reci- 
ben solamente nuestros suscriptores). 


J. Ameller, de Calatayud, nos hace 
dos consultas: ¿Cómo se puede pro- 
gramar un menú, teniendo en cuenta 
que cada opción cargue y ejecute auto- 


máticamente un programa desde el 
disco? 

Respuesta: Esto se puede obtener 
mediante una ligera modificación del 
programa que carga a otro desde el 
disco. Simplemente (ver más arriba) 
haciendo que la línea 30 ejecute un 
LOAD de PRG 2, PRG 3 6 PRG 4 depen- 
diendo del valor de una variable. 


¿Cómo se pueden editar cifras nu- 
méricas en la impresora o en el TV? 


Respuesta: Por la manera de plan- 
tear la cuestión parece que, en parte, 
queda contestada en el artículo «AYU- 
DA PARA CONTABLES». Sólo hay que 
añadir que una vez elaborada la cade- 
na alfanumérica ésta puede ser impre- 
sa sin más complicaciones. 


L. Casi, de Barcelona, nos formula 
varias preguntas: ¿Cómo sería el 
programa que, después de una parti- 
da de un juego cualquiera, exhibiese 
la tabla de los 10 mejores clasificados, 
sin que en una partida posterior se bo- 
rrasen? 


Respuesta: La manera más fácil 
consiste en que el programa no tenga 
que hacer un nuevo RUN cada vez que 
empieza una nueva partida. Así, en dos 


MARKETCLUB 


O Vendo interfaz y programa para RTTY y CW para el PET a 15 K. Rafael, 
EA3CGK - Avda. Barcelona, 21, A, 42 22, IGUALADA (Barcelona). 


O Se busca experto en VIC-20 para colaborar en la creación y coordinación de 
un Club de Usuarios de VIC en Barcelona. Llamar a Srta. Rosa Romero. Telé- 


fono 211 54 40. 


e Vendo cartucho 16K VIC-20, por 14.000 ptas. Hago programas en Basic de 
Commodore (todas las versiones) bajo encargo. Desearía contactar con usuarios 
de Commodore en la zona de Madrid, para cambio de programas, impresiones, 
pokes especiales, etc... Razón: Francisco Gutiérrez. Santiago Rusiñol, 12. MA- 
DRID-3. Teléf. (91) 253 13 40. Horas comida y cena. 


e Vendo equipo CBM 3032 y 3040 (CPU y Floppy). Interesados llamar a Miguel 
al (93) 300 16 27 de BARCELONA. 


O Desearía contactar con personas interesadas en la enseñanza de la Informá- 
tica a jóvenes de 9-14 años para adquirir programas y documentación. Llamar 
a Eduardo Guardino al (93) 209 94 49 de BARCELONA. 


matrices unidimensionales de diez 
elementos, se almacenaría la informa- 
ción; en una numérica, los resultados 
y en la otra — alfabética — los nom- 
bres. Otro procedimiento consiste en 
grabar en cinta los resultados al final 
de una partida para su posterior utili- 
zación. Véase el manual del usuario 
del VIC Pág. 109 Apéndice B para más 
detalles de manejo de información 
con el cassette. 


¿Cuándo aparecerá a la venta la se- 
gunda parte del curso de introducción 
al BASIC? 


Respuesta: En estos momentos 
(Diciembre del 82) se está terminan- 
do el proceso de traducción y entre- 
gando el primer material a la impren- 
ta. En todo caso, cuando esté dispo- 
nible se anunciará (de forma silencio- 
sa pero con letras GRANDES) en esta 
Revista. 


¿Dónde puedo encontrar informa- 
ción sobre programas para el VIC? 


Respuesta: Obviamente, en esta 
Revista, que está dedicada a las acti- 
vidades que se realicen en torno a 
los ORDENADORES PERSONALES de 
COMMODORE en general y de forma 
especial al VIC-20. No resistimos la 
tentación de insistir, una vez MÁS, 
en nuestro interés en publicar todas 
aquellas informaciones sobre estos te- 
mas que lleguen a nuestras manos. 

Pregunta: ¿Cuánta memoria queda 
disponible cuando se trabaja con 32K 
de RAM? 


Respuesta: Se puede disponer de 
27,5K. 
Pregunta: ¿Qué versión de DOS es 


la del disco del VIC-20? 


Respuesta: El sistema operativo 
del disco (DOS) del VIC-1540 es la ver- 
sión standard COMMODORE 2.6. 


Pregunta: ¿Cómo pueden pasarse 
programas de disco a cinta y vice- 
versa? 


Respuesta: Laúnica manera de ha- 
cer esta transferencia es cargando el 
programa en memoria con un LOAD y 
grabándolo con un SAVE. 
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EL ORDENADOR PERSONAL AMPLIABLE 
CON COLOR Y SONIDO. 


RS A nds E A A 


8 Así es el VIC-20 e Efectúa todo tipo de cálculos PS 
TA e Lenguaje BASIC extendido. Papa neos. 
eN e Sistema operativo COMMODORE. * Realiza funciones docentes. 
>: OR - * 5 K RAM ampliable a 32 K e Se encarga de múltiples tareas 
SS : j ofesionales. 
| pas e 16 colores, 4 generadores de sonido. do me E A : 
á Arata añ : e Proporciona divertidos momentos de 
] 0 c es grá 1cos. AiO. 
1 PO p, pis disponibles: e Ayuda a planificar labores domésticas. > 
Ñ e - Impres RA de agujas. —- e Hace todas las aplicaciones 
' pie - Unidad de disco de 170 K. A que Vd. imagine. 
o 7 | A. 
A ; Así hace las cosas el VIC-20 | PS E 
: e Enseña informática. 
, Con la adquisición de su VIC-20 recibirá además: : - 
2D) o + MANUAL DEL USUARIO. 
WE E INTRODUCCION AL LENGUAJE DE -á commodore 
TGS UA 11] PROGRAMACION BASIC. 
ÍN DA MACIÓN BASE b + Y I7PROGRAMAS DE ns R 
DEP ARTE Y a PRACTICAS COM PU 


ar Ñ (en dos cassettes). 


"TE 
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